home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 61.asm < prev    next >
Assembly Source File  |  2000-04-02  |  731b  |  41 lines
  1. * 61.asm  TLReqfont     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8. st_1: dc.b 'Demonstrate TLReqfont',0 ;1
  9.  dc.b 'You chose /',0 ;2
  10.  dc.b 'You chose cancel',0 ;3
  11. st_4: dc.b 'Times.font',0 ;4
  12.  
  13.  ds.w 0
  14.  
  15.  
  16. * demonstrate TLReqfont
  17. Program:
  18.  TLwindow #0,#0,#0,#380,#120,#640,#256,#-1,#st_1 ;open window 0
  19.  beq Pr_bad
  20.  TLgetfont #st_4,#1,#24
  21.  
  22.  TLreqfont #0            ;show TLreqfont
  23.  beq.s Pr_bad             ;go if error
  24.  move.w d0,d1
  25.  bmi.s Pr_canc            ;go if cancel
  26.  TLstrbuf #2
  27.  add.b d1,10(a4)
  28.  TLreqchoose              ;report choice
  29.  bra.s Pr_quit
  30.  
  31. Pr_canc:                  ;report cancelled
  32.  TLreqinfo #3,#1
  33.  bra.s Pr_quit
  34.  
  35. Pr_bad:                   ;report error
  36.  TLerror
  37.  TLreqchoose
  38.  
  39. Pr_quit:
  40.  rts
  41.